#lang rosetta-racket


(require "test-csg.rkt")

(provide test-csg-example)


(define (test-csg-example)
  (view-perspective
   (list
    (intersect-overlaping-shapes)
    (intersect-non-overlaping-shapes)
    (intersect-bigger-contained-shapes)
    (intersect-smaller-contained-shapes)
    
    (intersect-overlaping-shapes-repeat)
    (intersect-non-overlaping-shapes-repeat)
    (intersect-smaller-contained-shapes-repeat)
    (intersect-smaller-contained-shapes-repeat)
    
    (subtract-overlaping-shapes)
    (subtract-non-overlaping-shapes)
    (subtract-bigger-contained-shapes)
    (subtract-smaller-contained-shapes)
    
    (subtract-overlaping-shapes-repeat)
    (subtract-non-overlaping-shapes-repeat)
    (subtract-bigger-contained-shapes-repeat)
    (subtract-smaller-contained-shapes-repeat)
    
    (union-overlaping-shapes)
    (union-non-overlaping-shapes)
    (union-bigger-contained-shapes)
    (union-smaller-contained-shapes)
    
    (union-overlaping-shapes-repeat)
    (union-non-overlaping-shapes-repeat)
    (union-bigger-contained-shapes-repeat)
    (union-smaller-contained-shapes-repeat))))